perm filename CYCOMC.LAP[1,LMM]1 blob sn#031697 filedate 1973-03-27 generic text, type T, neo UTF8
(COMMENT IO FUNCTIONS) 

(LAP PRINRAD SUBR) 
	(PUSH P 1) 
	(CALL 1 (E PRINT)) 
	(MOVE 1 0 P) 
	(CALL 1 (E NUMNODES)) 
	(PUSH P 1) 
	(CALL 1 (E PRINRAD0)) 
	(PUSH P 0 P) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *LESS)) 
	(JUMPN 1 TAG4) 
	(MOVE 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
TAG2 
TAG3 	(MOVEI 2 (QUOTE -1)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 2 0 P) 
	(MOVE 3 -3 P) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 3 (E PRINRAD1)) 
	(SUB P (C 0 0 2 2)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E PRINRADOFF)) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP NUMNODES SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE 0) 0)) 
	(HRRZ@ 1 1) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG4) 
	(HLRZ@ 1 1) 
	(MOVEM 1 0 P) 
	(HRRZ@ 1 1) 
	(PUSH P 1) 
	(HLRZ@ 1 -1 P) 
	(CALL 1 (E NUMNODES)) 
	(POP P 2) 
	(CALL 2 (E *TIMES)) 
	(MOVE 2 -2 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -2 P) 
TAG2 
TAG3 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 -2 P) 
	(MOVEM 1 -2 P) 
	(HLRZ@ 1 -3 P) 
	(JUMPN 1 TAG12) 
	(MOVEI 2 (QUOTE 0)) 
	(JRST 0 TAG11) 
TAG12 	(HLRZ@ 1 -3 P) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG13) 
	(MOVEI 2 (QUOTE 1)) 
	(JRST 0 TAG11) 
TAG13 	(HLRZ@ 1 -3 P) 
	(HRRZ@ 1 1) 
	(HLRZ@ 1 1) 
	(HLRZ@ 1 1) 
	(CAIN 1 (QUOTE STRUC)) 
	(JRST 0 TAG14) 
	(MOVEI 2 (QUOTE 1)) 
	(JRST 0 TAG11) 
TAG14 	(HLRZ@ 1 -3 P) 
	(HRRZ@ 1 1) 
	(HLRZ@ 1 1) 
	(CALL 1 (E NODES)) 
	(CALL 1 (E LENGTH)) 
	(MOVE 2 1) 
TAG15 
TAG11 	(MOVE 1 -2 P) 
	(SUB P (C 0 0 4 4)) 
	(JCALL 2 (E *PLUS)) 
	NIL 

(LAP PRINRAD1 SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(HLRZ@ 1 3) 
	(PUSH P 1) 
	(HRRZ@ 1 3) 
	(CALL 1 (E CLEXPAND)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVE 1 -4 P) 
	(JUMPN 1 TAG25) 
	(HLRZ@ 1 -6 P) 
	(PUSH P 1) 
	(HRRZ@ 1 -7 P) 
	(HLRZ@ 1 1) 
	(HLRZ@ 3 -4 P) 
	(HRRZ@ 2 -7 P) 
	(PUSH P 1) 
	(HLRZ@ 1 -10 P) 
	(CALL 3 (E PRINRAD1)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E XCONS)) 
	(HRRZ@ 3 -5 P) 
	(HLRZ@ 3 3) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 3 (E PRINRAD1)) 
	(SUB P (C 0 0 1 1)) 
	(JRST 0 TAG24) 
TAG25 	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG27) 
	(HRRZ@ 1 -4 P) 
	(HLRZ@ 1 1) 
	(HLRZ@ 1 1) 
	(CAIN 1 (QUOTE STRUC)) 
	(JRST 0 TAG26) 
TAG27 	(HRRZ@ 1 -6 P) 
	(MOVEM 1 -1 P) 
	(PUSH P -3 P) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -2 P) 
	(JUMPE 1 TAG4) 
	(HLRZ@ 1 1) 
	(MOVE 2 -3 P) 
	(MOVEM 1 -1 P) 
	(HLRZ@ 1 -4 P) 
	(CALL 2 (E CONS)) 
	(MOVE 3 -1 P) 
	(MOVE 2 -4 P) 
	(MOVEM 1 -3 P) 
	(HLRZ@ 1 -11 P) 
	(CALL 3 (E PRINRAD1)) 
	(MOVEM 1 -4 P) 
TAG2 
TAG3 	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 0 P) 
	(HLRZ@ 1 -11 P) 
	(MOVEM 1 -2 P) 
	(MOVE 3 -12 P) 
	(JUMPE 3 TAG35) 
	(MOVE 2 -3 P) 
	(MOVE 1 3) 
	(CALL 2 (E CONS)) 
	(EXCH 3 1) 
	(JRST 0 TAG34) 
TAG35 	(MOVE 3 -3 P) 
TAG36 
TAG34 	(MOVE 2 -7 P) 
	(MOVE 1 -2 P) 
	(CALL 3 (E PRINENTRY)) 
	(MOVE 1 -4 P) 
	(SUB P (C 0 0 3 3)) 
	(JRST 0 TAG24) 
TAG26 	(MOVE 1 -7 P) 
	(JUMPN 1 TAG43) 
	(MOVE 1 -6 P) 
	(JRST 0 TAG42) 
TAG43 	(MOVE 1 -7 P) 
	(CALL 1 (E NCONS)) 
	(HLRZ@ 2 -6 P) 
	(CALL 2 (E XCONS)) 
	(HLRZ@ 2 -4 P) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(MOVEM 1 -2 P) 
	(HRRZ@ 1 -6 P) 
TAG44 
TAG42 	(MOVEM 1 -1 P) 
	(HRRZ@ 1 -4 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E NODES)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG5 	(MOVE 1 -2 P) 
	(JUMPE 1 TAG10) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -1 P) 
	(HLRZ@ 2 -7 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPN 1 TAG7) 
	(HLRZ@ 1 -4 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 -5 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 -5 P) 
	(HRRZ@ 1 -4 P) 
	(MOVEM 1 -4 P) 
TAG6 
TAG7 	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG5) 
TAG10 	(MOVE 1 0 P) 
	(HRRZ@ 1 -7 P) 
	(HRRZ@ 1 1) 
	(MOVEM 1 -2 P) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG11 	(MOVE 1 -7 P) 
	(JUMPE 1 TAG20) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -4 P) 
	(MOVEM 1 -2 P) 
TAG12 	(MOVE 1 -2 P) 
	(JUMPE 1 TAG16) 
	(HLRZ@ 1 1) 
	(MOVEI 3 (QUOTE NIL)) 
	(MOVE 2 -12 P) 
	(MOVEM 1 -3 P) 
	(CALL 3 (E LMASSOC)) 
	(MOVEM 1 -1 P) 
	(PUSH P (C 0 0 TAG60 0)) 
	(PUSH P 1) 
	(HLRZ@ 1 -13 P) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 16 (E NCONC)) 
TAG60 	(HLRZ@ 3 -13 P) 
	(MOVE 2 -11 P) 
	(HLRZ@ 1 -1 P) 
	(CALL 3 (E PRINRAD1)) 
	(MOVEM 1 -11 P) 
	(HRRZ@ 1 -13 P) 
	(MOVEM 1 -13 P) 
TAG13 
TAG14 
TAG15 	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG12) 
TAG16 
TAG17 	(HRRZ@ 1 -7 P) 
	(MOVEM 1 -7 P) 
	(JRST 0 TAG11) 
TAG20 	(MOVE 1 0 P) 
	(HRRZ@ 1 -14 P) 
	(HLRZ@ 1 1) 
	(HRRZ@ 1 1) 
	(MOVE 2 -12 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E PRINCTAB)) 
	(MOVE 1 -11 P) 
	(SUB P (C 0 0 10 10)) 
TAG40 
TAG24 	(SUB P (C 0 0 10 10)) 
	(POPJ P) 
	NIL 

(LAP PRINCTAB SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -3 P) 
	(JUMPE 1 TAG11) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -2 P) 
	(HRRZ@ 1 1) 
	(MOVEI 3 (QUOTE NIL)) 
	(MOVE 2 -4 P) 
	(HLRZ@ 1 1) 
	(CALL 3 (E LMASSOC)) 
	(MOVEM 1 -1 P) 
	(HRRZ@ 1 1) 
	(PUSH P 1) 
	(HRRZ@ 1 -3 P) 
	(HRRZ@ 1 1) 
	(HLRZ@ 1 1) 
	(HLRZ@ 1 1) 
	(PUSH P 1) 
	(HLRZ@ 1 -3 P) 
	(PUSH P 1) 
	(HRRZ@ 2 -5 P) 
	(HRRZ@ 2 2) 
	(HRRZ@ 2 2) 
	(PUSH P 2) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG2 	(MOVE 2 -2 P) 
	(JUMPN 2 TAG22) 
	(JRST 0 TAG5) 
TAG22 	(HLRZ@ 2 -2 P) 
	(MOVEM 2 -1 P) 
	(CAIE 2 (QUOTE FV)) 
	(JRST 0 TAG24) 
	(JRST 0 TAG4) 
TAG24 	(MOVEI 3 (QUOTE NIL)) 
	(MOVE 2 -12 P) 
	(MOVE 1 -1 P) 
	(CALL 3 (E LMASSOC)) 
	(MOVE 2 0 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
TAG3 
TAG4 	(HRRZ@ 2 -2 P) 
	(MOVEM 2 -2 P) 
	(JRST 0 TAG2) 
TAG5 	(MOVE 2 0 P) 
	(MOVE 1 -5 P) 
	(CALL 2 (E *APPEND)) 
	(MOVE 3 1) 
	(MOVE 2 -4 P) 
	(EXCH 1 -3 P) 
	(CALL 3 (E PRINENTRY)) 
	(SUB P (C 0 0 6 6)) 
TAG6 
TAG7 
TAG10 	(HRRZ@ 1 -3 P) 
	(MOVEM 1 -3 P) 
	(JRST 0 TAG1) 
TAG11 	(MOVE 1 0 P) 
	(SUB P (C 0 0 6 6)) 
	(POPJ P) 
	NIL 

(LAP PRINRAD0 SUBR) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE 0)) 
	(MOVEM 1 (SPECIAL XLATN)) 
	(MOVE 2 0 P) 
	(MOVEI 1 (QUOTE 5)) 
	(CALL 2 (E PRINNUM)) 
	(CALL 0 (E TERPRI)) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP PRINENTRY SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(EXCH 2 1) 
	(MOVEI 1 (QUOTE 3)) 
	(CALL 2 (E PRINNUM)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG11) 
	(MOVE 1 -1 P) 
	(CALL 1 (E PRIN1)) 
	(JRST 0 TAG10) 
TAG11 	(MOVEI 1 (QUOTE X)) 
	(CALL 1 (E PRIN1)) 
	(MOVE 1 (SPECIAL XLATN)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL XLATN)) 
	(CALL 1 (E PRIN1)) 
	(MOVE 2 -1 P) 
	(MOVE 1 (SPECIAL XLATN)) 
	(CALL 2 (E CONS)) 
	(MOVE 2 (SPECIAL XLATETABLE)) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL XLATETABLE)) 
TAG12 
TAG10 	(PUSH P 0 P) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -2 P) 
	(JUMPE 1 TAG4) 
	(HLRZ@ 1 1) 
	(MOVE 2 1) 
	(MOVEM 1 -1 P) 
	(MOVEI 1 (QUOTE 3)) 
	(CALL 2 (E PRINNUM)) 
TAG2 
TAG3 	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 0 P) 
	(SUB P (C 0 0 3 3)) 
	(CALL 0 (E TERPRI)) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP PRINNUM SUBR) 
	(MOVE 1 2) 
	(JCALL 1 (E PRIN1)) 
	NIL 

(LAP WIDTH SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE ((122221 6) (12221 5) (1221 4) (121 3) (11 2) (0 1))) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -2 P) 
	(JUMPE 1 TAG4) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -1 P) 
	(CALL 1 (E CADR)) 
	(MOVEM 1 0 P) 
TAG2 
TAG3 	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(HLRZ@ 2 -1 P) 
	(MOVE 1 -3 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG4) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 0 P) 
	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP PRINRADOFF SUBR) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE STRUCTURE=)) 
	(CALL 1 (E PRIN1)) 
	(MOVE 1 0 P) 
	(CALL 1 (E PRINT)) 
	(PUSH P (SPECIAL XLATETABLE)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -2 P) 
	(JUMPE 1 TAG4) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -1 P) 
	(MOVEI 1 (QUOTE X)) 
	(CALL 1 (E PRIN1)) 
	(HLRZ@ 1 -1 P) 
	(CALL 1 (E PRIN1)) 
	(MOVEI 1 (QUOTE =)) 
	(CALL 1 (E PRIN1)) 
	(HRRZ@ 1 -1 P) 
	(CALL 1 (E PRINT)) 
TAG2 
TAG3 	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 0 P) 
	(SUB P (C 0 0 3 3)) 
	(MOVEI 1 (QUOTE END*)) 
	(CALL 1 (E PRINT)) 
	(CLEARM 1 (SPECIAL XLATETABLE)) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL